10 PRINT"[147]"
20 GETT$:IFT$=""THEN20
30 IF ASC(T$)<64 OR ASC(T$)>90THEN20
50 PRINTT$;:GOTO20